﻿Public Class ClscnFlujo
    Inherits ClsSQL

    Dim flujo_id As Integer
    Dim descripcion As String
    Dim estado As Integer
    Dim usuario As String
    Dim fechareg As Date

#Region "Propiedades"
    Property Pflujo_id() As Integer
        Get
            Return flujo_id
        End Get
        Set(ByVal value As Integer)
            flujo_id = value
        End Set
    End Property
    Property Pdescripcion() As String
        Get
            Return descripcion
        End Get
        Set(ByVal value As String)
            descripcion = value
        End Set
    End Property
    Property Pestado() As Integer
        Get
            Return estado
        End Get
        Set(ByVal value As Integer)
            estado = value
        End Set
    End Property
    Property Pusuario() As String
        Get
            Return usuario
        End Get
        Set(ByVal value As String)
            usuario = value
        End Set
    End Property
    Property Pfechareg() As Date
        Get
            Return fechareg
        End Get
        Set(ByVal value As Date)
            fechareg = value
        End Set
    End Property
#End Region

#Region "Procedmientos y Funciones"
    Public Function Insertar()
        Dim sql As String
        'sql = "INSERT INTO MOVIMIENTO VALUES ('" & Pfecha.Date.ToString("yyyyMMdd") & "','" & Pidalmacen & "','" & Pidlugar & "','" & Pidherramienta & "','" & Pcantidad & "', '" & Pidtipomovimiento & "', '" & Pidmovimiento & "','" & Pestado() & "')"
        Return (Me.Ejecutar(sql))
    End Function
    Public Function Modificar()
        Dim sql As String
        'sql = "UPDATE MOVIMIENTO SET IDTIPOMOVIMIENTO=5 WHERE IDTIPOMOVIMIENTO='" & Pidtipomovimiento() & "' AND IDMOVIMIENTO='" & Pidmovimiento() & "' "
        Return (Me.Ejecutar(sql))
    End Function
    Public Function Eliminar()
        Dim sql As String
        'sql = "UPDATE MOVIMIENTO SET IDTIPOMOVIMIENTO=6 WHERE IDTIPOMOVIMIENTO='" & Pidtipomovimiento() & "' AND IDMOVIMIENTO='" & Pidmovimiento() & "' "
        Return (Me.Ejecutar(Sql))
    End Function
    Sub ClsConectar(ByVal bd As String, Optional ByVal servidor As String = "")
        Select Case bd
            Case "administracion"
                Conectar(0)
            Case "corbol"
                Conectar(1)
            Case "importacion"
                Conectar(2)
            Case "corbol09"
                Conectar(3)
            Case "corbol2010"
                Conectar(4)
            Case "pruebas"
                Conectar(5)
            Case "corbol2011"
                Conectar(6)
        End Select
    End Sub
    Sub ClsDesConectar()
        Desconectar()
    End Sub
    Function ClsTraerDataTable(ByVal opcion As Int16, Optional ByVal filtro As String = "") As DataTable
        Select Case opcion
            Case 0
                'Return TraerTabla("VCnComproFl", "*", " TIPO='INGRESO' ORDER BY NroTipo DESC")
            Case 1
                'Return Buscador("VCnComproFl", filtro)
            Case 2
                'Return Buscador("VpdOrdenC", "WHERE Orden_id=" & Porden_id() & " ")
            Case 3
                Return EjecutarSql("Tprueba", filtro)
        End Select
    End Function
    Function ClsTraerDataSet(Optional ByVal opcion As Integer = 0) As DataSet
        'Select Case opcion
        '    Case 0
        '        Return TraerTablaDs("VALMACEN", "*")
        '        'Case 1
        '        '    Return BuscadorDs("VAUTOPORCLIENTE", "WHERE CLIENTE=" & Pidcliente() & " ")
        'End Select
    End Function

#End Region

End Class
